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MODULE STRSUPCASE ( ! copy source to dest and upcase 
IDENT = '1-006" ! File: STRUPCASE.B832 Edit: 0G1006 
) =z 
BEGIN 


EPEC E LISI OTITIS TET ETT TT TTT cere cic ici iii i sii titi iii iii iit iiiiiiiii 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
a 
ee 
* 
® 
4 t 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. 2 
ey 
tt 
2 
® 
o 
® 
® 
* 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ie CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
ie 
i eeeeeereererereeerereereeeerereetreeererereeeeeeeeeeeeeeeeeeeeeeeeeeeeeete 
' 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


+ 
FACILITY: String support Library 
ABSTRACT: 


This module takes strings of any supported class or dtype and 
copies the source string to the destination string, upcasing 

all letters a-z and all letters with diacritical marks. 

This routine is needed so that if a user wants any character 
comparison to be case blind, he will first convert both strings 
to upper case. 


ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 1-Dec-79 
MODIFIED BY: 

R. Will, 1-Dec-79: VERSION 01 

1-60 - Griginal 

1- § - String speedup, status from macros. RW 11-Jan-1980 

1-005 = Enhance to recognize additional classes of descriptors by 


using SSTRSGET_LEN_ADDR to extract length and address of 
first date byte. Remove string interlocking code. 


K - 
1-004 = Speed up code. RKR 7-0CT-1981. 


8 
1b-se -1984 01:51:1 AX-11 Bliss-3 
1 ~$0071382 93:23] LIBRTL.SRCIST UPCASE .852;1 


etRess 


_—— 


5g" ASE rata ere 


; ! 1-005 = Use STRSCOPY_R_RB for copying. Use STRSSI NAL_FATAL 
Bo zSARee- ge SRST 
; (61 


1 
1 nstead of SSTRSCHECK RKR 1 
6 Q ! 1-006 = Enhance to use DEC hateinactoner Char. ian Dé 1-Nov-1983. 
Ea 
3 6 1 !<BLF/PAGE> 


STRRYPCASE 


SWITCHES: 


SWITCHES ADDRESSING MODE 


Sesese? 


—3o 


71 
; 007 LINKAGES 
7% 0978 i ; 
75 074 
0 i} REQUIRE ‘RTLIN:STRLNK'; 
78 61 1! 
79 0 6¢ i TABLE OF CONTENTS: 
80 0 6 i 
81 64 
h 0265 1 FORWARD ROUTINE 
8 0 08 STRSUPCASE; 
84 026 
85 0268 1! 
0269 1! INCLUDE FILES: 
g599 | 
0 2 REQUIRE 'RTLIN:RTLPSECT’; 
9388 REQUIRE ‘RTLIN:STRMACROS'; 
85 1 LIBRARY "RTLSTARLE': 


i MACROS: NONE 
i EQUATED SYMBOLS: NONE 


PSECT DECLARATIONS 
DECLARE_PSECTS (STR); 


i OWN STORAGE: NONE 
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: EXTERNAL REFERENCES: 
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VVSo uO AP UNUOSS Ve AR OOo UO hoe 
ee a ee a a ee me ee ee ee ee ee a ed a ee ed ed eed ed 


> ee ns — 4 2 as 4 9 4 2 


- - 


08 

09 1 EXTERNAL ROUTINE 

10 LIBSSTOP, 

1 STRSCOPY.R_RB : STRSJSB_COPY_R ; 
18 EXTERNAL LITERAL 


8 
1b-5 =1984 01:51:14 AX-11 BLi 4.0-74 
10-89-1984 9:20:17 . 32 V4.0 


liss- 
LIBRTL.SRCIST UPCASE .852;1 


(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


Use require file with string Linkage 


convert lowercase to uppercase 


Declare PSECTS code 
use string macros to code 
STARLET Library for macros and symbl 


! signal errors 
! Routine to do the copy 


m 8 
STREUPCASE e=8eb= 1982 Pi2:19 = Mant OSRESSPRubCAgE 682: 1 roe as 
s Té2 1314 «1 STRS_NORMAL ; ! successful completion 


string (after cory operat ten) 


RETURN_STATUS; ! status from STR$ 


P 
SRC DESC : RE 
DEST_DESC : RE 


we 
PH 
nn 
44 
z2@D 


n 8 
STRSUPCASE 16-Sep-1984 01:51:14 AX=11 Bliss-32 V4.0-74 Page 5 5 
1-006 13-808- 1382 9} 40:17 PTBRTL SREISTAUPCASE B42: 1 ’ 3 
: 136 1315 1 GLOBAL ROUTINE STRSUPCASE ( ! upcase | Sy' 
° | 
: 126 1 i$ 1 DEST_DESC, ' Pointer to destination descriptor | LI 
: ! ! 18 ! SRC_BESC ! Pointer to source descriptor ¢ 
: 129 1320 1 Yrs LI! 
: 1350 1321 1 LI 
: ! ¢ | ? | : FUNCTIONAL DESCRIPTION: rt 
2 1325 1! This routine copies the input string to the output string and 
; #6135 1326 1! changes all lower case letters a-z plus letter with diacritcal ul 
3 138 : f : marks to upper case ul 
; «(138 1 $3 1 ! FORMAL PARAMETERS: LI 
: 139 1350 1! Ll 
: 140 toa) 03 DEST _DESC.wt.dx pointer to destination string descriptor 
3 «(141 13e6 1? SRC_BESC.rt.dx pointer to source string descriptor 
3 io 1333 1! 
3 (14 1334 1 =! IMPLICIT INPUTS: Ll 
> 144 1335 1! 
> 6145 1336 1! NONE 
> 146 [sar 6 6.9 LI 
3; (147 1338 1! IMPLICIT OUTPUTS: Ll 
> (148 1339 1! 
3 149 1340 1! NONE LI 
; 150 1341 1! Lil 
; «151 106 1 ! COMPLETION CODES: LI 
; 138 1343 1! LI 
3: 15 1344 1! $S$_NORMAL Success Lil 
: 154 1345 1! STRS_TRU Truncation occurred. Warning. Lil 
3; 155 1346 1! Lil 
: 156 1347 1 ! SIDE EFFECTS: Lil 
: 157 1348 1! Lil 
; 4158 1349 1! May signal: LI 
3; 159 1350 1! STR$_FATINTERR Fatal internal error Lil 
: 160 1351 1! STRS_ILLSTRCLA 1Ulegal (or unsupported) string class Ll 
: 161 1338 1! STRS$_INSVIRMEM Insufficient virtual memory for LI 
: 168 1353 1! reallocation of dynamic string Ll 
; 16 1354 1! ull 
3: 164 132? 1 f= Lil 
3 165 1356 1 LI 
> 166 1357 2 BEGIN Ll 
3 167 1338 LI 
; 168 1359 LOCAL : LI 
; 169 1360 IN_LEN ! Length of input string LI 
: 170 1361 2 IN-ADDR, i addr of ist byte of input str. Ll 
: 171 1362 2 OUT_LEN, : Length of output string Ll 
; \7@ 136 ' (after copy operation) Ll 
; 177 136 OUT_ADDR. : addr of Ist byte of output Li 
: 1h : | | tL 
: 179 1 | ul 
: #178 1 
; 179 1 
; 180 1 
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SHR, 


1 
2 
212, 213, 214, 215, 216, 217, ! lower to upper 
STRSARNACL 


SUPCASE, Save R2,R3.R4,R5,R6,R7,R8,R9,- 


. STRSCOPY R_RB 
“NORMAL , 
; R 
0 
R 


AX-11 Bliss-32 V4.0-74 
IBRTL.SRC 


L 
SANALYZE_SDESC_R1, R10 


' translate to self 


from destination 
1 
4 
9 
2 
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sess 8 8 88 8 8 8 MV - ODOM TOD zroorw 
POE) ee Oe ee A OOP COUNT INT OU 
O-VUMITUVOR-COGRCOr- Ft ttt tr rere eree eee 


_STRSCODE ,NOWRT, 


were used since same 
n 
to destination 


-EXTRN LIBS$STOP 
-EXTRN STRS 


T 
E 
»PSECT 


str 
'End of STRSUPCASE 
S 
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RETURN .RETURN 


END; 
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TRSUPCASE 16-Sep-1984 01:51:1 AX=-11 Bliss-32 V4.0-74 Page 
Atr4 12-3 ae 3B 9}: 20543 PNBRTL SREISTAUSCASE 89251 . 
A 9 MOVL RC_DESC, RO : 

83 88 Ab B0 op CMPB sho) we : 

0 yA } BGTRU 1$ : 

53 60 3¢ 0001 MOVZWL (RO) : 

04 A0 06 oi MOVL 4(RO ‘ int EDDR : 

08 1 1A BRB 2$ : 

A 1 gic 1$: JSB STRSANALYZE_SDESC_R1 : 

3 0D IE MOVL RO, R3 : 

3 1 D 0 MOVL 1, R2 : 

04 AC D 4 2% MOVL DEST_DESC, R9 : 

1 DO 00028 MOVL IN_LEN, Ri : 

0 9 D 99 B MOVL RO RO : 

000000006 0 1 a JSB srAse RB : 

56 DO 000 MOVL RETURN STAT s ; 

19 56 E8 00037 BLBS a's URN_STATUS : 

04 56 0 00 ED OO03A CMPZV #3, RETURN, STATUS. #4 : 
09 12 0003F NEQ : 

6 DD 00041 PUSHL aE TURN STATUS : 

900000006 00 01 FB 00043 CALLS #1, LIBS$STOP : 

02 03 Ad 91 O004A 3S: CMPB) s«3(R9), 2 : 

09 #1A 9004 GTRU 4$ : 

50 69 3¢ 0005 MOVZWL (R9), OUT_LEN ; 

51 04 a9 00 0005 MOVL  4(R9S, OUT_ADDR : 

05 11 00057 BRB 3$ : 

50 59 p00 00059 4s: MOVL : 

6A 16 0005C JSB STASANALYZE SDESC_R1 : 

FE9B CCF 20 61 50 2€ 0005E S$: MOVTC OUT_LEN, (OOT_ADDR), #32, P.AAA, OUT_LEN, - : 
61 50 0006 (OU EhoR) : 

50 56 DO 00067 MOVL RETURN. STATUS, RO F 

04 0006A RET : 


Routine Size: 107 bytes, Routine Base: _STRSCODE + 0100 


$3 1s48 1 
6 1445 1 END ‘End of module 
$2 1444 1 
54 1445 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

_STRSCODE 363 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
euesesse Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


1382 


1383 


1388 


1438 


1440 
1441 
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Used: pages 
Eeoatlebten” conpiees 


: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 4 581 00:00.7 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/NOTRACE/LIS=L1S$:STRUPCASE/0BJ=0BJ$ : STRUPCASE MSRC$: STRUPCASE/UPDATE=(ENH$: STRUPCASE 
$ Size: 107 code + 256 data bytes 

; Run Time 00:05.8 

3 ple y Time: 99: Or¢ a” 

3; Lines/CPU Min: 

3 Nee Nak ie yao7 
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